#Region "Copyright (c) 1998-2007 Gravitybox LLC, All Rights Reserved"
'--------------------------------------------------------------------- *
'                          Gravitybox  LLC                             *
'             Copyright (c) 1998-2007 All Rights reserved              *
'                                                                      *
'                                                                      *
'This file and its contents are protected by United States and         *
'International copyright laws.  Unauthorized reproduction and/or       *
'distribution of all or any portion of the code contained herein       *
'is strictly prohibited and will result in severe civil and criminal   *
'penalties.  Any violations of this copyright will be prosecuted       *
'to the fullest extent possible under law.                             *
'                                                                      *
'THE SOURCE CODE CONTAINED HEREIN AND IN RELATED FILES IS PROVIDED     *
'TO THE REGISTERED DEVELOPER FOR THE PURPOSES OF EDUCATION AND         *
'TROUBLESHOOTING. UNDER NO CIRCUMSTANCES MAY ANY PORTION OF THE SOURCE *
'CODE BE DISTRIBUTED, DISCLOSED OR OTHERWISE MADE AVAILABLE TO ANY     *
'THIRD PARTY WITHOUT THE EXPRESS WRITTEN CONSENT OF Gravitybox LLC    *
'                                                                      *
'UNDER NO CIRCUMSTANCES MAY THE SOURCE CODE BE USED IN WHOLE OR IN     *
'PART, AS THE BASIS FOR CREATING A PRODUCT THAT PROVIDES THE SAME, OR  *
'SUBSTANTIALLY THE SAME, FUNCTIONALITY AS ANY GRAVITYBOX PRODUCT.      *
'                                                                      *
'THE REGISTERED DEVELOPER ACKNOWLEDGES THAT THIS SOURCE CODE           *
'CONTAINS VALUABLE AND PROPRIETARY TRADE SECRETS OF GRAVITYBOX,        *
'INC.  THE REGISTERED DEVELOPER AGREES TO EXPEND EVERY EFFORT TO       *
'INSURE ITS CONFIDENTIALITY.                                           *
'                                                                      *
'THE END USER LICENSE AGREEMENT (EULA) ACCOMPANYING THE PRODUCT        *
'PERMITS THE REGISTERED DEVELOPER TO REDISTRIBUTE THE PRODUCT IN       *
'EXECUTABLE FORM ONLY IN SUPPORT OF APPLICATIONS WRITTEN USING         *
'THE PRODUCT.  IT DOES NOT PROVIDE ANY RIGHTS REGARDING THE            *
'SOURCE CODE CONTAINED HEREIN.                                         *
'                                                                      *
'THIS COPYRIGHT NOTICE MAY NOT BE REMOVED FROM THIS FILE.              *
'--------------------------------------------------------------------- *
#End Region

Option Strict On
Option Explicit On 

Namespace Gravitybox.Objects

  Friend Class ReflectionHelper

#Region "Reflection Methods"

    Friend Function GetPersistablePropertyList(ByVal sourceObject As Object) As System.Array

      Dim retval As New System.Collections.ArrayList
      If sourceObject Is Nothing Then Return retval.ToArray

      Try
        'Get the properties
        Dim propertyList() As System.Reflection.PropertyInfo = sourceObject.GetType().GetProperties()
        Dim attributeType As System.Type = GetType(Gravitybox.Design.Attributes.Persistable)

        'Loop through each to find the sub-list of values
        For Each pi As System.Reflection.PropertyInfo In propertyList
          If pi.MemberType = Reflection.MemberTypes.Property Then
            Dim customAttributes As System.Array = pi.GetCustomAttributes(True)
            For Each attribute As Object In customAttributes
              'Must find the attribute type
              If attribute.GetType() Is attributeType Then
                Dim persist As Gravitybox.Design.Attributes.Persistable = CType(attribute, Gravitybox.Design.Attributes.Persistable)
                Dim custompi As Gravitybox.Objects.PropertyInfo = New Gravitybox.Objects.PropertyInfo(pi, pi.PropertyType, persist.FieldName, persist.IsRequired, persist.IsKey)
                retval.Add(custompi)
              End If
            Next
          End If

        Next

        'Retrun results
        Return retval.ToArray

      Catch ex As Exception
        ErrorModule.SetErr(ex)
      End Try

      retval.Clear()
      Return retval.ToArray

    End Function

#End Region

  End Class

End Namespace